home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / conv / PicConvert.lha / picconvert / Install < prev    next >
Text File  |  1997-04-07  |  8KB  |  379 lines
  1. ; * $VER: Install Picture Converter 2.3
  2. ; * Script written by Eckhard Ludwig
  3. ;=============================================================================
  4.  
  5. (complete 0)
  6.  
  7. (set Opt 2)
  8. (set #welcome
  9.   (cat
  10.     "\n\n\nWelcome to the Picture Converter installation utility.\n\n"
  11.     "This program lets you install PictureConverter 2.3 on your Amiga.\n\n\n"
  12.     "PictureConverter © 1997 Eckhard Ludwig."
  13.   ))
  14.  
  15. (set #choose-text
  16.   (cat "Please choose a directory where PictureConvert should be installed. A drawer will be created there."
  17.   ))
  18.  
  19. (set #choose-help
  20.   (cat "In this location a drawer will be created. All files will be installed inside this drawer. The complete installation will require about 1.7MB of free harddisk space."
  21.   ))
  22.  
  23. (set #inst-main
  24.   (cat "Installing PictureConvert ..."
  25.   ))
  26.  
  27. (set #inst-Libs
  28.   (cat "Installiere "
  29.   ))
  30.  
  31. (set #inst-Lokale
  32.   (cat "Installing Lokale.exe ..."
  33.   ))
  34.  
  35. (set #create-maindir
  36.   (cat "Creating PicConvert directory"
  37.   ))
  38.  
  39. (set #create-bindir
  40.   (cat "Creating Bin dir"
  41.   ))
  42.  
  43. (set #create-docsdir
  44.   (cat "Creating Docs dir"
  45.   ))
  46.  
  47. (set #inst-bin
  48.   (cat "Installing Net PBM ..."
  49.   ))
  50.  
  51. (set #inst-docs
  52.   (cat "Installing program documentation ..."
  53.   ))
  54.  
  55. (set #inst-fonts
  56.   (cat "Installing XEN Fonts ..."
  57.   ))
  58.  
  59. (set #Install-Prompt 
  60.   (cat "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !"
  61.   ))
  62.  
  63. (set #Locale-Copy   "Copy cataloges ...")
  64.  
  65.  
  66.  (SET #exit-Msg 
  67.   (CAT "\n\nMuch fun with Programmes\n wish you\n\n"
  68.                    "Eckhard Ludwig" 
  69.   ))
  70.  
  71. ; deutsche Texte *****************************
  72.  
  73. (IF (= @language "deutsch")
  74. (
  75. (set Opt 1)
  76. (set #welcome
  77.   (cat
  78.     "\n\n\nWillkommen zu dem Picture Converter Installations Utility.\n\n"
  79.     "Dieses Programm installiert Picture Converter 2.3 auf Ihrem Amiga.\n\n\n"
  80.     "PictureConverter ist ©1997 by Eckhard Ludwig."
  81.   ))
  82.  
  83. (set #choose-text
  84.   (cat "Bitte wählen Sie das Verzeichniss wohin PictureConvert installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  85.   ))
  86.  
  87. (set #choose-help
  88.   (cat "Bei der Installation werden alle Dateien in dieses Verzeichniss installiert. Die vollständige Installation von PictureConvert belegt auf der Festplatte etwa 1,7MB."
  89.   ))
  90.  
  91. (set #create-maindir
  92.   (cat "Erstelle PicConvert-Verzeichniss"
  93.   ))
  94.  
  95. (set #inst-main
  96.   (cat "Installiere Hauptprogramm ..."
  97.   ))
  98.  
  99. (set #inst-Libs
  100.   (cat "Installiere "
  101.   ))
  102.  
  103. (set #inst-Lokale
  104.   (cat "Installiere Lokale.exe ..."
  105.   ))
  106.  
  107. (set #create-bindir
  108.   (cat "Erstelle BIN-Verzeichniss"
  109.   ))
  110.  
  111. (set #create-docsdir
  112.   (cat "Erstelle Docs-Verzeichniss"
  113.   ))
  114.  
  115. (set #inst-bin
  116.   (cat "Installiere NetPBM ..."
  117.   ))
  118.  
  119. (set #inst-docs
  120.   (cat "Installiere Programm Dokumentation ..."
  121.   ))
  122.  
  123. (set #inst-fonts
  124.   (cat "Installiere XEN Fonts ..."
  125.   ))
  126.  
  127. (set #Install-prompt 
  128.   (cat "Bitte wählen Sie für das Programm die bevorzugte(n) Sprachversion(en).\nMit n/a gekennzeichnete Sprachen sind momentan nicht verfügbar."
  129.   ))
  130.  
  131. (set #Locale-Copy   "Kopiere Cataloge ...")
  132.  
  133.  
  134. (SET #exit-Msg
  135.   (CAT "\n\nViel Spaß mit den Programmen\n wünscht\n\n"
  136.                    "Eckhard Ludwig"
  137.   ))
  138. ))
  139. ;*********************************************
  140. ; Greetings & Path ...
  141.  
  142. (message #welcome)
  143.  
  144. (welcome)
  145.  
  146. (set @default-dest (getassign "Work" "dva"))
  147.   (if (= @default-dest "")
  148.    (set @default-dest "SYS:"))
  149.   
  150. (set @default-dest (askdir
  151.     (prompt #choose-text)
  152.     (help #choose-help)
  153.     (default @default-dest))
  154.   ) 
  155.   
  156. (set @default-dest (tackon @default-dest "PicConvert"))
  157.  
  158. (makedir @default-dest (prompt #create-maindir)(infos))
  159.   
  160. ;*********************************************
  161. ; Installation procedure
  162. ; 
  163.  
  164. (copyfiles
  165.     (prompt    #inst-main)
  166.     (help    @copyfiles-help)
  167.     (source "PictureConvert")
  168.     (dest    @default-dest)
  169.         (confirm "EXPERT")
  170.         (optional "force" "askuser")
  171.     (infos)
  172. )
  173.  
  174. (complete 5)
  175.  
  176. (makedir (tackon @default-dest "bin")
  177.  (prompt #create-bindir)
  178. )
  179.  
  180. (copyfiles
  181.     (prompt    #inst-bin)
  182.     (help    @copyfiles-help)
  183.     (source "bin")
  184.     (dest    (tackon @default-dest "bin"))
  185.        (pattern "#?")
  186.        (optional "force" "askuser")
  187.        (confirm "EXPERT")
  188.        (files)
  189. )
  190.  
  191. (complete 45)
  192.  
  193. (copylib
  194.     (prompt    (cat #inst-Libs "iff.library"))
  195.     (help    @copylib-help)
  196.     (source "iff.library")
  197.     (dest    "SYS:Libs")
  198.        (optional "force" "askuser")
  199.        (confirm "EXPERT")
  200. )
  201.  
  202. (complete 50)
  203.  
  204. (makedir (tackon @default-dest "Docs")
  205.  (prompt #create-docsdir)
  206.  (infos)
  207. )
  208.  
  209. (copyfiles
  210.     (prompt    #inst-docs)
  211.     (help    @copyfiles-help)
  212.     (source "Docs")
  213.     (dest    (tackon @default-dest "Docs"))
  214.        (pattern "#?")
  215.        (optional "force" "askuser")
  216.        (confirm "EXPERT")
  217.        (files)
  218.     (infos)
  219. )
  220.  
  221. (complete 70)
  222.  
  223. (copyfiles
  224.     (prompt    #inst-fonts)
  225.     (help    @copyfiles-help)
  226.     (source "Fonts")
  227.     (dest    "SYS:Fonts")
  228.        (pattern "#?")
  229.        (optional "force" "askuser")
  230.        (confirm "EXPERT")
  231.        (files)
  232. )
  233. (copyfiles
  234.     (prompt    #inst-fonts)
  235.     (help    @copyfiles-help)
  236.     (source "Fonts/XEN")
  237.     (dest    "SYS:Fonts/XEN")
  238.        (pattern "#?")
  239.        (optional "force" "askuser")
  240.        (confirm "EXPERT")
  241.        (files)
  242. )
  243. (complete 80)
  244.  
  245. ;*********************************************
  246. ; copy the locales
  247.  
  248. (IF (= @language "All")
  249.     (set Opt 511))
  250.  
  251. (set installchoice
  252.    (askoptions
  253.    (prompt #Install-Prompt)
  254.    (help @askoptions-help)
  255.    (choices "Deutsch" "English" "dansk n/a" "français n/a" "italiano" "nederlands" "norsk n/a" "suomi n/a" "svenska n/a")
  256.    (default Opt)
  257. ))
  258.  
  259. (IF (BITAND installchoice 2)
  260.   (copyfiles
  261.    (prompt #Locale-Copy)
  262.    (help @copyfiles-help)
  263.    (source "Locale/Catalogs/english")
  264.    (dest "SYS:Locale/Catalogs/english")
  265.    (pattern "#?.catalog")
  266.    (confirm "EXPERT")
  267.    (optional "force" "askuser" "nofail")
  268.   ))
  269.  
  270. (IF (BITAND installchoice 4)
  271.   (copyfiles
  272.    (prompt #Locale-Copy)
  273.    (help @copyfiles-help)
  274.    (source "Locale/Catalogs/dansk")
  275.    (dest "SYS:Locale/Catalogs/dansk")
  276.    (pattern "#?.catalog")
  277.    (confirm "EXPERT")
  278.    (optional "force" "askuser" "nofail")
  279.   ))
  280.  
  281. (IF (BITAND installchoice 8)
  282.   (copyfiles
  283.    (prompt #Locale-Copy)
  284.    (help @copyfiles-help)
  285.    (source "Locale/Catalogs/français")
  286.    (dest "SYS:Locale/Catalogs/français")
  287.    (pattern "#?.catalog")
  288.    (confirm "EXPERT")
  289.    (optional "force" "askuser" "nofail")
  290.   ))
  291.  
  292. (IF (BITAND installchoice 16)
  293.   (copyfiles
  294.    (prompt #Locale-Copy)
  295.    (help @copyfiles-help)
  296.    (source "Locale/Catalogs/italiano")
  297.    (dest "SYS:Locale/Catalogs/italiano")
  298.    (pattern "#?.catalog")
  299.    (confirm "EXPERT")
  300.    (optional "force" "askuser" "nofail")
  301.   ))
  302.  
  303. (IF (BITAND installchoice 32)
  304.   (copyfiles
  305.    (prompt #Locale-Copy)
  306.    (help @copyfiles-help)
  307.    (source "Locale/Catalogs/nederlands")
  308.    (dest "SYS:Locale/Catalogs/nederlands")
  309.    (pattern "#?.catalog")
  310.    (confirm "EXPERT")
  311.    (optional "force" "askuser" "nofail")
  312.   ))
  313.  
  314. (IF (BITAND installchoice 64)
  315.   (copyfiles
  316.    (prompt #Locale-Copy)
  317.    (help @copyfiles-help)
  318.    (source "Locale/Catalogs/norsk")
  319.    (dest "SYS:Locale/Catalogs/norsk")
  320.    (pattern "#?.catalog")
  321.    (confirm "EXPERT")
  322.    (optional "force" "askuser" "nofail")
  323.   ))
  324.  
  325. (IF (BITAND installchoice 128)
  326.   (copyfiles
  327.    (prompt #Locale-Copy)
  328.    (help @copyfiles-help)
  329.    (source "Locale/Catalogs/suomi")
  330.    (dest "SYS:Locale/Catalogs/suomi")
  331.    (pattern "#?.catalog")
  332.    (confirm "EXPERT")
  333.    (optional "force" "askuser" "nofail")
  334.   ))
  335.  
  336. (IF (BITAND installchoice 256)
  337.   (copyfiles
  338.    (prompt #Locale-Copy)
  339.    (help @copyfiles-help)
  340.    (source "Locale/Catalogs/svenska")
  341.    (dest "SYS:Locale/Catalogs/svenska")
  342.    (pattern "#?.catalog")
  343.    (confirm "EXPERT")
  344.    (optional "force" "askuser" "nofail")
  345.   ))
  346.  
  347. (complete 80)
  348.  
  349. (IF (> installchoice 1)
  350.     (copyfiles
  351.     (prompt    #inst-lokale)
  352.     (help    @copyfiles-help)
  353.     (source "Lokale.exe")
  354.     (dest    @default-dest)
  355.         (confirm "EXPERT")
  356.         (optional "force" "askuser")
  357. ))
  358.  
  359. (complete 90)
  360.  
  361. ;*********************************************
  362. ; Set Loadpath SYS: (Tooltype), falls Work: not exists 
  363.  
  364. (set #Loadpath (getassign "Work" "dva"))
  365.   (if (= #Loadpath "")
  366.     (tooltype
  367.     (prompt "Set Tooltype")
  368.     (help @askchoice-help)
  369.     (dest (tackon @default-dest "PictureConvert"))
  370.         (confirm "EXPERT")
  371.         (optional "force" "askuser")
  372.     (settooltype "LOADDIR" "SYS:")
  373.   ))
  374.  
  375. (complete 100)
  376.  
  377.  
  378. (EXIT #exit-Msg )
  379.